﻿Imports DataAcessLayer

Partial Public Class WebForm3
    Inherits System.Web.UI.Page

    Dim DAL As New DAL
    Private Shared intID As Integer
    Private Shared flag As Boolean

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Message.Visivel = False
        lblAccAlterar.Text = "Criar Troféu"

        If Not Page.IsPostBack Then
            Preenchimento()

            ddlVencedor.DataSource = DAL.ObterTodosUsers
            ddlVencedor.DataValueField = "IDUser"
            ddlVencedor.DataTextField = "NomeUtilizador"
            ddlVencedor.DataBind()
            ddlVencedor.Items.Insert(0, "Não Atribuído")

        End If
    End Sub

    Protected Sub Preenchimento()

        gvTrofeus.DataSource = DAL.ObterTrofeus
        gvTrofeus.DataBind()

    End Sub

    Protected Sub gvTrofeus_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvTrofeus.RowCommand

        If e.CommandName = "Editar" Then

            lblAccAlterar.Text = "Editar Jogo"

            Dim trofeu = DAL.ObterTrofeuPorID(e.CommandArgument).FirstOrDefault
            txtNomeTrofeu.Text = trofeu.NomeTrofeu
            intID = e.CommandArgument
            flag = True
            Accordion2.SelectedIndex = 0

        ElseIf e.CommandName = "Apagar" Then

            If DAL.ApagarTrofeu(e.CommandArgument) Then
                Message.FeedbackUserMessage("Troféu apagado com Sucesso!", TipoMensagem.Sucesso)
            Else
                Message.FeedbackUserMessage("Ocorreu um erro!", TipoMensagem.Erro)
            End If

            flag = False

            Preenchimento()
        End If

    End Sub

    Protected Sub lnkGravar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnkGravar.Click

        If flag Then

            If DAL.AlterarTrofeu(intID, txtNomeTrofeu.Text, ddlVencedor.SelectedItem.Text) Then

                Message.FeedbackUserMessage("Troféu Alterado com Sucesso!", TipoMensagem.Sucesso)
            Else
                Message.FeedbackUserMessage("Ocorreu um erro!", TipoMensagem.Erro)
            End If

        Else

            If DAL.InserirTrofeu(txtNomeTrofeu.Text, ddlVencedor.SelectedItem.Text) Then

                Message.FeedbackUserMessage("Troféu criado com Sucesso!", TipoMensagem.Sucesso)
            Else
                Message.FeedbackUserMessage("Ocorreu um erro!", TipoMensagem.Erro)
            End If
        End If
        flag = False
        Preenchimento()

    End Sub

    Protected Sub lnkCancelar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnkCancelar.Click
        lblAccAlterar.Text = "Criar Troféu"
        txtNomeTrofeu.Text = ""
        flag = False
        Accordion2.SelectedIndex = 1
    End Sub
End Class